//-----------------------------------------------------------------------------
//
//	ValueRaw.cpp
//
//	Represents a collection of 8-bit values
//
//	Copyright (c) 2012 Greg Satz <satz@iranger.com>
//
//	SOFTWARE NOTICE AND LICENSE
//
//	This file is part of OpenZWave.
//
//	OpenZWave is free software: you can redistribute it and/or modify
//	it under the terms of the GNU Lesser General Public License as published
//	by the Free Software Foundation, either version 3 of the License,
//	or (at your option) any later version.
//
//	OpenZWave is distributed in the hope that it will be useful,
//	but WITHOUT ANY WARRANTY; without even the implied warranty of
//	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//	GNU Lesser General Public License for more details.
//
//	You should have received a copy of the GNU Lesser General Public License
//	along with OpenZWave.  If not, see <http://www.gnu.org/licenses/>.
//
//-----------------------------------------------------------------------------

#include "tinyxml.h"
#include "value_classes/ValueRaw.h"
#include "Msg.h"
#include "platform/Log.h"
#include "Manager.h"
#include <ctime>

namespace OpenZWave
{
	namespace Internal
	{
		namespace VC
		{

//-----------------------------------------------------------------------------
// <ValueRaw::ValueRaw>
// Constructor
//-----------------------------------------------------------------------------
			ValueRaw::ValueRaw(uint32 const _homeId, uint8 const _nodeId, ValueID::ValueGenre const _genre, uint8 const _commandClassId, uint8 const _instance, uint16 const _index, string const& _label, string const& _units, bool const _readOnly, bool const _writeOnly, uint8 const* _value, uint8 const _length, uint8 const _pollIntensity) :
					Value(_homeId, _nodeId, _genre, _commandClassId, _instance, _index, ValueID::ValueType_Raw, _label, _units, _readOnly, _writeOnly, false, _pollIntensity), m_value( NULL), m_valueLength(_length), m_valueCheck( NULL), m_valueCheckLength(0)
			{
				m_value = new uint8[_length];
				memcpy(m_value, _value, _length);
				m_min = 0;
				m_max = 0;
			}

//-----------------------------------------------------------------------------
// <ValueRaw::ValueRaw>
// Constructor (from XML)
//-----------------------------------------------------------------------------
			ValueRaw::ValueRaw() :
					m_value( NULL), m_valueLength(0), m_valueCheck( NULL), m_valueCheckLength(0)
			{
				m_min = 0;
				m_max = 0;
			}

//-----------------------------------------------------------------------------
// <ValueRaw::~ValueRaw>
// Destructor
//-----------------------------------------------------------------------------
			ValueRaw::~ValueRaw()
			{
				delete[] m_value;
				if (m_valueCheck != NULL)
					delete[] m_valueCheck;
			}

			std::string const ValueRaw::GetAsString() const
			{
				string str = "";
				char bstr[10];

				for (uint32 i = 0; i < m_valueLength; ++i)
				{
					if (i)
					{
						str += " ";
					}
					snprintf(bstr, sizeof(bstr), "0x%.2x", m_value[i]);
					str += bstr;
				}

				return str;
			}

			bool ValueRaw::SetFromString(string const& _value)
			{
				char const* p = _value.c_str();
				uint8 index = 0;
				uint8* value = new uint8[m_valueLength];
				while (1)
				{
					char *ep = NULL;
					uint32 val = (uint32) strtol(p, &ep, 16);
					if (p == ep || val >= 256)
					{
						break;
					}
					if (index < m_valueLength)
					{
						value[index] = (uint8) val;
					}
					index++;
					if (ep != NULL && *ep == '\0')
					{
						break;
					}
					p = ep + 1;
				}

				bool bRet = false;

				if (index <= m_valueLength)
				{
					bRet = Set(value, index);
				}

				delete[] value;
				return bRet;
			}

//-----------------------------------------------------------------------------
// <ValueRaw::ReadXML>
// Apply settings from XML
//-----------------------------------------------------------------------------
			void ValueRaw::ReadXML(uint32 const _homeId, uint8 const _nodeId, uint8 const _commandClassId, TiXmlElement const* _valueElement)
			{
				Value::ReadXML(_homeId, _nodeId, _commandClassId, _valueElement);

				int intVal;
				if (TIXML_SUCCESS == _valueElement->QueryIntAttribute("length", &intVal))
				{
					m_valueLength = (uint8) intVal;
				}
				m_value = new uint8[m_valueLength];
				char const* str = _valueElement->Attribute("value");
				if (str)
				{
					uint8 index = 0;
					while (1)
					{
						char *ep = NULL;
						uint32 val = (uint32) strtol(str, &ep, 16);
						if (str == ep || val >= 256)
						{
							break;
						}
						if (index < m_valueLength)
						{
							m_value[index] = (uint8) val;
						}
						index++;
						if (ep != NULL && *ep == '\0')
						{
							break;
						}
						str = ep + 1;
					}
					if (index > m_valueLength)
					{
						Log::Write(LogLevel_Info, "Data length mismatch for raw data. Got %d but expected %d.", index, m_valueLength);
					}
				}
				else
				{
					Log::Write(LogLevel_Info, "Missing default raw value from xml configuration: node %d, class 0x%02x, instance %d, index %d", _nodeId, _commandClassId, GetID().GetInstance(), GetID().GetIndex());
				}
			}

//-----------------------------------------------------------------------------
// <ValueRaw::WriteXML>
// Write ourselves to an XML document
//-----------------------------------------------------------------------------
			void ValueRaw::WriteXML(TiXmlElement* _valueElement)
			{
				Value::WriteXML(_valueElement);

				_valueElement->SetAttribute("value", GetAsString().c_str());
				char str[8];
				snprintf(str, sizeof(str), "%d", GetLength());
				_valueElement->SetAttribute("length", str);
			}

//-----------------------------------------------------------------------------
// <ValueRaw::Set>
// Set a new value in the device
//-----------------------------------------------------------------------------
			bool ValueRaw::Set(uint8 const* _value, uint8 const _length)
			{
				// create a temporary copy of this value to be submitted to the Set() call and set its value to the function param
				ValueRaw* tempValue = new ValueRaw(*this);
				tempValue->m_value = new uint8[_length];
				memcpy(tempValue->m_value, _value, _length);
				tempValue->m_valueLength = _length;

				// Set the value in the device.
				bool ret = ((Value*) tempValue)->Set();

				// clean up the temporary value
				delete tempValue;

				return ret;
			}

//-----------------------------------------------------------------------------
// <ValueRaw::OnValueRefreshed>
// A value in a device has been refreshed
//-----------------------------------------------------------------------------
			void ValueRaw::OnValueRefreshed(uint8 const* _value, uint8 const _length)
			{
				switch (VerifyRefreshedValue((void*) m_value, (void*) m_valueCheck, (void*) _value, ValueID::ValueType_Raw, m_valueLength, m_valueCheckLength, _length))
				{
					case 0:		// value hasn't changed, nothing to do
						break;
					case 1:		// value has changed (not confirmed yet), save _value in m_valueCheck
						if (m_valueCheck != NULL)
						{
							delete[] m_valueCheck;
						}
						m_valueCheck = new uint8[_length];
						m_valueCheckLength = _length;
						memcpy(m_valueCheck, _value, _length);
						break;
					case 2:		// value has changed (confirmed), save _value in m_value
						if (m_value != NULL)
						{
							delete[] m_value;
						}
						m_value = new uint8[_length];
						m_valueLength = _length;
						memcpy(m_value, _value, _length);
						break;
					case 3:		// all three values are different, so wait for next refresh to try again
						break;
				}
			}
		} // namespace VC
	} // namespace Internal
} // namespace OpenZWave
